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AUTOMATED INTERFACE GENERATION FOR COMPUTER PROGRAMS IN 

DIFFERENT ENVIRONMENTS 



5 BACKGROUND OF THE INVENTIONS 

TECHNICAL FIELD 

The invention relates to automated generation of 
interfaces to programs in different environments. 
Particularly, the invention relates to automated 

10 generation of interfaces to programs designed for and 

operating on IBM Corporation's IMS® (Information 
Management System) transaction and database server system 
so as to support the dynamic composing and reading of 
data messages exchanged between an interfacing program 

15 and the program operating on the IMS system. 

PRIOR ART 

An attribute of modern computer systems is that they 
support many programming environments, such as the Java™, 

20 C, C++, PASCAL , FORTRAN, COBOL and BASIC computer 

language environments. Further, many distributed 
computing systems today provide a client- server model in 
which a client program can run and interact with a server 
program, where often the client program and server 

25 program run on different systems in a computer network. 

Thus, in a distributed environment including possibly 
many different computer systems supporting any number of 
different programming environments, sharing of data 
30 between different program environments is becoming 

increasingly important. Particularly, there is a need in 
new program environments to access services or data 
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provided by older program environments often through 
distributed computing systems. 
An example of where there is a need for such 
cross -environment access is with modern object-oriented 
5 languages having access to data or services of IMS 

systems. An IMS system is a complete online transaction 
processing environment that provides continuous 
availability and data integrity. An IMS system comprises 
a database and a data communication system. The IMS 
10 database system provides for management and storage of 

data and processes concurrent database calls. The IMS 
data communication system provides high-volume, 
high-performance, high- capacity transaction processing 
for the IMS database system. 

15 

In IMS systems, many IMS legacy programs are written in 
COBOL. In order to perform transactions with these COBOL 
IMS programs using programs in another computer programming 
language environment such as a C++ or Java language 
20 environment, a programmer must: 

• Map between the other computer language data types and 
the COBOL data types; 

• Translate the data and semantics of the other computer 
language into data corresponding to the COBOL data 

25 type(s), wherein the data must be aligned according to 

COBOL alignment rules; 

• Connect the IMS system and the system containing the 
programs in the other language in order to allow 
passage of data between the systems; 

30 • Format the data passing from the programs written in 

the other language to the IMS system into an IMS 
mes'sage format; and 
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• Translate the data returned from the IMS system, which 
is in an IMS message format with its contained COBOL 
data types, to data corresponding to the other computer 
language data type(s) * 

5 

An IMS connection feature called CICON of the IBM® 
VisualAge® for Smalltalk application development product 
provides access to transaction applications having MFS 
(message formatting services) panels running under an IMS 

10 system* Notably however, CICON only allows access to 

panel driven applications defining at least one panel 
using MFS . To provide such access, the VisualAge for 
Smalltalk product provides a parser for importing the MFS 
definitions and tools to recreate panel navigation based 

15 on user input. The parser and tools provide the 

capability to embody a series of interactions, without 
any user access, into one navigation and provides a way 
of mapping this navigation to an object developed in the 
VisualAge for Smalltalk environment. However, a 

20 disadvantage of CICON is that only transactions with 

defined MFS panels can be accessed. Since it is not 
required for an IMS transaction to define such panels, 
CICON does not optimally allow access to all legacy 
business applications . 

25 

A second tool that allows access to legacy applications 
is the CICS®/ECI access tool included with the IBM 
VisualAge for Java, Enterprise Edition application 
development product. This tool allows access to COBOL 
30 transactions running under the IBM CICS (Customer 

Information Control System) software system. This tool 
uses a parser to import a COBOL program in the CICS 
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system and to generate stubs for communicating and 
exchanging data with the CICS system. The disadvantage of 
this tool is its static definition of the data to be 
exchanged with the CICS system. Once the stubs are 
5 generated, the contents of the data buffer to be sent or 

received from the CICS system cannot be changed. Rather, 
an IMS system uses input and output messages for 
interacting with IMS transactions and the content of 
these messages is dynamic, in that the message defines 

10 its size and layout. The COBOL IMS transaction source 

file input and output message records define data types 
and also, in part, the layout, but not the actual size 
of, the messages exchanged. Therefore, it is not possible 
to use the CICS tool to access COBOL transactions running 

15 in an IMS system. 

Thus, it would be advantageous to provide a program 
runtime capable of reading and composing the IMS message 
data stream of an IMS system (or any analogous system or 
20 environment) as well as providing an import utility with 

the capability of generating interface stubs capable of 
handling the dynamic nature of that message data stream. 

SUMMARY OF THE INVENTION 

25 The invention provides for automated generation of 

interfaces to programs in different environments. 
Particularly, the invention provides for automated 
generation of interfaces to programs designed for and 
operating on IBM Corporation's IMS® (Information 

30 Management System) transaction and database server system 

so as to support the dynamic composing and reading of 
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data messages exchanged between an interfacing program 
and the program operating on the IMS system. 

There is provided a method for interfacing a program on 
5 an IMS system to a program in another program 

environment, comprising the steps of scanning an IMS 
transaction with the program on the IMS system; and 
generating a program interface, the program interface 
providing means for invoking the IMS transaction and 

10 converting data between the IMS transaction and the 

program in another program environment* The above method 
may also be provided wherein the interface comprises a 
transaction part which provides for invoking the IMS 
transaction; a message part which provides for composing 

15 or reading an IMS message; and a lpage part which 

provides for dynamic composing or reading of an IMS 
message. The above methods may also further comprise the 
step of providing a runtime, the runtime comprising means 
for translating data types of the program in another 

20 program environment to data types used in a message to 

the IMS system; means for composing the message to the 
IMS system; means for translating data types used in a 
message from the IMS system to data types of the program 
in another program environment; and means for reading the 

25 message from the IMS system. And the runtime may further 

comprise means for accessing the IMS transaction via the 
MQSeries messaging interface. Further, the above methods 
may comprise the step of compiling the program interface 
into the program in another program environment. And some 

30 of the above methods may further comprise the step of 

compiling the runtime into the program in another program 
environment. And, the above methods may further comprise 
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the step of providing means for converting code pages 
between the another program environment and the IMS 
system. 

5 There is also provided a computer program product for 

interfacing a program on an IMS system to a program in 
another program environment, comprising instruction means 
for scanning an IMS transaction with the program on the 
IMS system; and instruction means for generating a 

10 program interface, the program interface providing means 

for invoking the IMS transaction and converting data 
between the IMS transaction and the program in another 
program environment* The above computer program product 
may also be provided wherein the interface comprises a 

15 transaction part which provides for invoking the IMS 

transaction; a message part which provides for composing 
or reading an IMS message; and a lpage part which 
provides for dynamic composing or reading of an IMS 
message. The above computer program products may further 

20 comprise instructions means for providing a runtime, the 

runtime comprising means for translating data types of 
the program in another program environment to data types 
used in a message to the IMS system; means for composing 
the message to the IMS system; means for translating data 

25 types used in a message from the IMS system to data types 

of the program in another program environment; and means 
for reading the message from the IMS system. And, the 
runtime may further comprise means for accessing the IMS 
transaction via the MQSeries messaging interface. And the 

30 above computer program products may further comprise 

instruction means for compiling the program interface 
into the program in another program environment. And some 
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of the above computer program products may further 
comprise instruction means for compiling the runtime into 
the program in another program environment. And, the 
above computer program products may further comprise 
5 instruction means for converting code pages between the 

another program environment and the IMS system. 

Further, there is provided a computer program product for 
interfacing a program on an IMS system to a program in 

10 another program environment, comprising instruction means 

for scanning an IMS transaction with the program on the 
IMS system producing a data description of said IMS 
transaction; and instruction means for using said data 
description to generate code for invoking said IMS 

15 transaction. The above computer program product may 

further comprise instruction means for using said data 
description to generate code to process message elements 
of said IMS transaction for use with the program in 
another language environment. 

20 

Also provided is a computer program product for 
interfacing a program on an IMS system to a program in 
another program environment, comprising .instruction means 
for invoking an IMS transaction with the program on the 

25 IMS system; and instruction means for converting data 

between the IMS transaction and the program in another 
program environment. The above computer program product 
may also be provided wherein the instruction means for 
converting further comprises instruction means for 

30 translating data types of the program in another program 

environment to data types used in a message to the IMS 
system; instruction means for composing the message to 
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the IMS system; instruction means for translating data 
types used in a message from the IMS system to data types 
of the program in another program environment; and 
instruction means for reading the message from the IMS 
5 system. The above computer program products may also be 

provided wherein the instruction means for converting 
further comprises instruction means for accessing the IMS 
transaction via the MQSeries messaging interface. And the 
above computer program products may further comprise 
10 instruction means for converting code pages between the 

another program environment and the IMS system. 

There is also provided an article of manufacture 
comprising a computer usable medium having computer 
15 readable program code means therein for executing the 

method steps of any one of the above methods. 

Also provided is a system for interfacing a program on an 
IMS system to a program in another program environment, 

20 comprising means for scanning an IMS transaction with the 

program on the IMS system; and means for generating a 
program interface, the program interface providing means 
for invoking the IMS transaction and converting data 
between the IMS transaction and the program in another 

25 program environment. The above system may further 

comprise means for providing a runtime, the runtime 
comprising means for translating data types of the 
program in another program environment to data types used 
in a message to the IMS system; means for composing the 

30 message to the IMS system; means for translating data 

types used in a message from the IMS system to data types 
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of the program in another program environment; and means 
for reading the message from the IMS system. 

There is further provided a system for interfacing a 
program on an IMS system to a program in another program 
environment, comprising means for scanning an IMS 
transaction with the program on the IMS system producing 
a data description of said IMS transaction; and means for 
using said data description to generate code for invoking 
said IMS transaction. The above system may further 
comprise means for using said data description to 
generate code to process message elements of said IMS 
transaction for use with the program in another language 
environment. 

A system for interfacing a program on an IMS system to a 
program in another program environment is also provided 
comprising means for invoking an IMS transaction with the 
program on the IMS system; and means for converting data 
between the IMS transaction and the program in another 
program environment. The above system is- also provided 
wherein the means for converting further comprises means 
for translating data types of the program in another 
program environment to data types used in a message to 
the IMS system; means for composing the message to the 
IMS system; means for translating data types used in a 
message from the IMS system to data types of the program 
in another program environment; and means for 
interpreting the message from the IMS system. 

BRIEF DESCRIPTION OF THE DRAWINGS 
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The preferred embodiments of the present invention will 
now be described, by way of example only, with reference 
to the accompanying drawings in which: 

Figure 1 shows in diagrammatic form the 

components of a system for automated interface generation 

according to the present invention; 

Figure 2 is a diagram depicting the import 

utility of Figure 1 in detail; 

Figure 3 depicts the structure of an example 

IMS message used by the invention; 

Figure 4A and 4B is a flowchart of the data 

extraction of IMS messages by the runtime of the present 

inventions- 
Figure 5 is source code of a simple COBOL IMS 

transaction that is supplied two numbers as input which 

the COBOL IMS program then adds and returns the result; 

and 

Figure 6 is the resulting generated C++ classes 
from the import utility using the simple COBOL IMS 
transaction in Figure 5 as input. 

DETAILED DESCRIP TION OF THE PREFERRED EMBODIMENTS OF THE 

INVENTION 

The preferred embodiment of the present invention 
provides a system, method, computer program product and 
article of manufacture for generating an interface which 
defines a mapping from a COBOL program designed for and 
operating on an IMS system (hereafter COBOL IMS program) 
to a computer program written in another computer 
language such as the C++ and Java languages, for invoking 
an IMS transaction with the COBOL IMS program (hereafter 
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a COBOL IMS transaction) and for formatting and 
converting the COBOL IMS transaction data passing between 
the COBOL IMS program and the program written in the 
other computer language. The present invention creates an 
interface which handles the mapping of data types and 
different program semantics between COBOL and the other 
language, translates the data types between COBOL and the 
other language, handles conversion between code pages and 
machine architectures of the systems operating the COBOL 
IMS program and the program written in the other 
language, formats the data from the program written in 
the other language into an IMS input message to the COBOL 
IMS program, and converts an IMS output message from the 
COBOL IMS program into data usable by the program written 
in the other language. 

Particularly, the present invention provides an import 
utility for interfacing a COBOL IMS program to a program 
in another program language environment, the import 
utility comprising a means for scanning the COBOL IMS 
transaction and generating a program interface, the 
program interface providing a means for invoking the 
COBOL IMS transaction and for converting data between the 
COBOL IMS transaction and the program in the other 
program environment. The generated program interface 
comprises three parts: (a) a transaction, part which 
provides means for invoking an IMS transaction; (b) a 
message part which provides means for composing or 
reading an IMS input or output message respective; and 
(c) a lpage part which provides the means for dynamic 
composing or reading of an IMS message. These parts 
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support visual and non -visual programming in the other 
language. 

Further, the present invention also provides a program 
runtime for the generated program interface. The program 
runtime provides a generic means for invoking a COBOL IMS 
transaction using the IBM MQSeriesO messaging interface, 
for formatting data from the program written in the other 
language into an IMS input message, and for converting an 
IMS output message into data usable by the program 
written in the other language. The interfaces generated 
by the import utility together with the program runtime 
allow access to COBOL IMS transactions in, preferably, a 
distributed environment. 

It should be apparent to those skilled in the art that 
the present invention may be implemented on systems other 
than IMS systems. The invention may be implemented on 
systems that provide substantially the same functionality 
as an IMS system. Similarly, the invention may be 
implemented on systems that provide just some or all of 
the key features/functionality that the invention uses 
and/or addresses. Further, the invention may be 
implemented in whole or in part as software which 
software may be stored and/or operated on one or more 
machines in one or more interconnected systems. 

Referring to Figure 1, a schematic of the preferred 
embodiment of the invention for providing an Interface to 
a COBOL IMS transaction 80 with a COBOL IMS program 90 
from a client application 40 written in another computer 
language, for invoking the COBOL IMS transaction, and for 
formatting and converting COBOL IMS transaction data 
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passing between the client application and the COBOL IMS 
program is depicted. Generally, the COBOL IMS transaction 
source file 10 is passed into import utility 20. In the 
import utility, the COBOL IMS transaction source file is 
parsed and the results are used to create the generated 
code 30 which defines the interface with the COBOL IMS 
transaction. The generated code is used to form the 
compiled generated code stub 50 which works with the 
program runtime 60 of the invention and the client 
application to invoke the COBOL IMS transaction through 
MQSeries messaging services 70 and to format and convert 
the COBOL IMS transaction data passing between the client 
application and the COBOL IMS program. 

In the preferred embodiment, the import utility is 
integrated into a software application development 
program, such as the IBM VisualAge C++ software 
development tool, and the development program provides 
compilation of the generated code and the inclusion of 
the runtime and the compiled generated code stub into the 
client application. It should be apparent to those 
skilled in the art however that the import utility may 
operate on a standalone basis and interact with other 
tool(s) that facilitate compilation and provision of the 
runtime functionality of the invention. Additionally, the 
import utility may be designed from 'scratch' or simply 
be an extension of a code generator (which are well-known 
in the art) . 

Further, in the preferred embodiment, the import utility 
will create the generated code on a remote workstation 94 
(remote relative to the IMS system) for compilation with 
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the client application and the runtime on the remote 
workstation. And, in the preferred embodiment, the client 
application (along with the compiled generated code and 
the runtime) run on the remote workstation which is 
connected by MQSeries messaging services and hardware 
connections to the IMS system, typically an OS/390a host 
computer 96, all more particularly depicted in Figure 1. 
However, it should be apparent to those skilled in the 
art that any number of different hardware configurations 
and system interconnection topologies could be used in 
accordance with the invention. Without limitation, any 
one or any combination of the components generally 
described in Figure 1, e.g., the import utility, the 
client application, the runtime, the compiled generated 
code, etc. could operate on the same or different 
workstations or systems. Indeed, all components of the 
invention could operate on the IMS system host. 

More particularly, the import utility facilitates the 
creation of an interface for a client application 40 
written in another computer language to a COBOL IMS 
transaction with a COBOL IMS application program by 
reading the IMS transaction source file 10. In the 
preferred embodiment, the IMS transaction source file, 
which is initially located on the file system of the IMS 
system host, is read from the file system of -the computer 
environment in which the import utility operates. In the 
preferred embodiment, the user inputs IMS transaction 
information to the import utility by way of command line 
arguments passed when invoking the import utility. The 
user specifies the name of the COBOL IMS transaction to 
be invoked, the name of the IMS transaction source file 
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containing relevant message definitions, the name of the 
main class to be generated by the import utility and the 
name of the method representing the COBOL IMS transaction 
invocation. The user is also required to specify the 
5 names of the COBOL data structures representing the input 

and output messages. These messages are interpreted as 
arguments to the aforementioned method. It should be 
apparent to those skilled in the art that input of 
arguments could equally be provided by a graphical user 
10 interface means, provided to the import utility by a 

program invoking the import utility, or provided by any 
other conventional input means, whether manual or 
automatic. 

15 Referring to Figure 2, the import utility 20 comprises 

three components: scanner 22, parser 24 and code 
generator 26. The scanner reads the COBOL IMS transaction 
source file 10 and generates a stream of tokens that are 
input to the parser. The parser interprets the stream of 

20 tokens and generates data model code parts corresponding 

to the contents of the COBOL IMS transaction messages. 
These parts are then used by the code generator to 
generate C++ classes 30, the program interface, 
representing the IMS input and output messages contained 

25 in the COBOL IMS transaction source file. Clearly the 

classes could be generated in computer languages other 
than C++, typically the language corresponding to the 
language of the client application. The generated data 
types of the input and output messages describe the 

30 format of the data stream to be sent to the IMS 

transaction and the format of the reply sent by the IMS 
transaction back to the C++ program. 



CA919980001US1 



-15- 



13498. rlc 

lsG:IBM\105\13498\SPEC\13498.rlc 



In the preferred embodiment, the import utility creates 
the several C++ constructs as described above, namely a 
transaction part, a message part and a lpage part, which 
5 are used to generate the compiled generated code stub 

used, in combination with the runtime, to invoke the 
COBOL IMS transaction through the IBM MQSeries services. 

The first construct or part - the main, user specific 
10 class, user_class, with a name defined by the user to the 

import utility - contains the properties and methods 
needed to communicate with the IMS system. These 
properties and methods are included in user_class by 
means of multiple inheritance from generated utility 
15 classes, described below, contained in the program 

runtime classes. These classes include IDAInterf aceBase 
class, IXDMQIMSConversation class and other member 
classes of the IBM Open Class® library. 

20 The utility classes generated by the import utility 

include the user_classDef inition class, the 
user_class__stub class and the ims_user_class_cstub class. 
The main purpose of these classes is to provide the 
abstract definitions properties used by the user_class. 

25 The properties provide unique identifiers to identify the 

class, methods which return Strings containing the 
signature of user_methods, and an abstract implementation 
of each user_method. 

30 The user_class also defines the implementation of the 

user defined method, user_method, as specified by the 
user to the import utility. The invocation of this method 
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causes interaction with the IMS transaction as understood 
by the IMS system including sending an input message to 
the IMS system and receiving an output message from the 
IMS system. The method expects two arguments ' 
corresponding to the input and output messages of the IMS 
'transaction. The messages themselves are userjaessage 
classes generated by the import utility from the COBOL 
data structures representing the input and output 
messages specified by the user to the import utility. 

The second construct or part, a message part - class 
user_message - provides means for composing or reading an 
IMS input or output message respectively. Messages 
exchanged with an IMS system are divided into logical 
pages or lpages, depicted by way of example in Figure 3 
as lpage 1 and lpage 2, and the user__message class 
reflects this structure by defining the sequence of 
lpages as its data member. 

Since an 1 page itself can contain one or more segments 
and the message can contain two or more logic pages, a 
third construct or part - a class user_lpage - is defined 
for each logical page and the generated code 30 contains 
a class definition for each defined lpage. The segments, 
depicted by way of example as segl, seg2, and seg3 in 
Figure 3, contained in a lpage are itself classes, 
generated from the COBOL data structures by the import 
utility. The multiple segments within a lpage are grouped 
into a segment sequence. The generated code defines all 
segments of a particular lpage as the data members of 
that lpage class. Further, the segments are comprised of 
fields, depicted by way of example as mfldl, mfld2, 
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mfld3, mfld4 and mfldS in Figure 3, which in turn are the 
basic COBOL data types. The generated code defines all 
fields of a particular segment as the data members of 
that segment class. 

In all of the generated code 30, the definition of one 
class as a data member of, or included in, another class 
implies the existence of the methods to retrieve and set 
the value of such data member or included class. 

In addition to the C++ code described above, the import 
utility also generates a description of visual and 
nonvisual parts in a format, in the preferred embodiment, 
understandable to the Visual Composition Editor included 
in the IBM VisualAge C++ product. This description 
includes graphical representations of the user_class and 
the user_method as well as other generated classes and 
their data members. This allows the use of the generated 
code to visually create user applications using the 
Visual Composition Editor development functionality such 
as attribute to attribute connections. It should be 
apparent to those skilled in the art that formats for 
other visual or non-visual programming tools may be used. 

After creation of the generated code by the import 
utility, the generated code is compiled (as the compiled 
generated code stub) with the runtime and client 
application. Of course, in other program language 
environments, the generated code, the application and the 
runtime may be not be compiled together rather instead 
interlinked by other means. Once compiled together, the 
client application and program runtime interact with the 
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compiled generated code stub to allow access by the 
client application to a COBOL IMS transaction. 

The program runtime 60 of the present invention comprises 
5 a set of C++ classes providing access from the 

application's system to an IMS system. Specifically, the 
runtime classes provide means to: translate the simple 
data types of the language used on the application's 
system to the COBOL data types used in a message to the 

10 IMS system (IDACallHandle class); construct messages in a 

format understandable by the IMS system 
(IXDMQIMSCallHandlelnternal, IXDMQIMSTransaction and 
IXDMQIMSConversation classes) ; exchange the messages with 
the IMS system using IBM MQSeries services (IXDMQIMSRChnl 

15 and IXDMQIMSSChnl classes) ; read the message returned 

from the IMS system (IXDMQIMSCallHandlelnternal , 
IXDMQIMSTransaction and IXDMQIMSConversation classes) ; 
and translate the simple COBOL data types contained in a 
message from the IMS system to the data types of the 

20 language used on the application's system (IDACallHandle 

class) . 

The runtime handling of dynamic IMS system messages is 
described using an example of the reading of an IMS 
25 output message but it is understood that the runtime may 

also be capable of composing such formatted messages to 
be sent to an IMS system e.g. as an IMS input message. 

As described above, an IMS message can contain multiple 
30 lpages, which in turn can contain multiple segments 

occurring as one or more segment sequences. In any given 
segment sequence, one or more segments can be omitted. 
Each segment can contain multiple fields corresponding to 
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the simple data types of the COBOL IMS transaction. Some 
or all data fields can be omitted. The actual structure 
of each message, said structure defined by the number of 
lpages in the message, the number of segment sequences in 
5 the lpage, and the number and size of all fields in the 

segment, is thus really only known at the time of 
generation of the messages. The ability of the IMS system 
to reorder lpages and their segment sequences and omit 
segments and fields prevents direct mapping of the 

10 message to a set of generated data structures 

(classes/types) and thus requires a runtime to read each 
message and dynamically map the message to the generated 
data structures (classes/types) . The handling of these 
dynamic messages by the runtime and the compiled 

15 generated code of the present invention is described 

below. 

To accommodate all the possible messages, the runtime 
assumes that a message contains multiple lpages, each 

20 with multiple segment sequences, each containing multiple 

fields. Also, each generated class corresponding to the 
message, lpage, segment or field, contains the code to 
unmarshal the corresponding part of the IMS message. This 
code is combined using the C++ operator overloading 

25 mechanism to translate the whole IMS system message. 

Initially, the message is copied into a buffer 100 and 
its length is stored. Until or unless there. is no data in 
the buffer, the runtime reads a sequence of lpages 110. 



30 



After making sure the buffer contains data 12 0 (using the 
notAtEndOfBuf f er method of the InternalCallHandle class) , 
the next step is to verify that the data to be read 
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belongs to the current lpage 130. This verification is 
done using the notAtEndOf Buf f erOrSeq method. This method 
uses the page bit and the lpage condition. The page bit 
is the fourth byte of the message segment. If its value 
is 0x40, the segment is the first in the segment sequence 
of the lpage. The lpage condition consists of a reference 
value, comparator operator and the offset within the 
segment. The segment belongs to the lpage when the value 
at the offset compared, using the comparator operator, to 
the reference value evaluates to true. This method is 
used to determine whether the first segment in the 
segment sequence belongs to the same lpage or is the 
first segment in the next lpage. If it is the first 
segment in the next lpage, the next lpage is processed 
110. This comparison operation is necessary since a 
segment sequence for a lpage does not have to contain the 
same number of elements and can end after any segment. 

If the segment belongs to the current lpage, its contents 
are unmarshalled. First, the runtime verifies that the 
segment is not a null segment, that is, a segment 
containing no data 140. Method notNull Segment checks 
whether the segment length specified in its length field 
is equal to 5, and if it is, whether the fifth byte of 
the segment is a null character. The null character is 
transaction dependent and is defined by the user to the 
runtime 60. If the segment is empty, no data is read and 
the buffer pointer is advanced by 5 - the length of the 
empty segment 150. When the segment is not empty, the 
runtime strips the first four bytes of the segment 
containing the length and control information 160. This 
is done by invoking the method stripLL. 
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The next step is to unmarshal all the fields of the 
segment 170. Since fields can be omitted, the runtime 
checks for a null character before attempting to 
5 unmarshal a field 180. If the null character is present, 

the runtime advances the buffer pointer by the length of 
the field 19 0. If the field is truncated, that is the 
null character is not the first one in the field, the 
runtime only reads into the buffer up to the null 
10 character and advances the buffer pointer appropriately 

200. The fields and segments differ in that a truncated 
segment is physically shorter, whereas the field always 
occupies the same space. 

15 After unmarshaling all the fields in the segment, the 

runtime verifies that it should continue to unmarshal the 
current lpage. Besides checking whether there is any more 
data in the buffer 12 0 (if there is no more data the 
unmarshalling is terminated) , it verifies that the lpage 

20 condition is met and therefore whether the next segment 

belongs to the same lpage 13 0. If the condition is not 
met the runtime starts unmarshalling the next lpage 110. 
Otherwise, the runtime verifies that the next segment 
contains data 140. If so, the segment and its fields are 

25 processed as described above. If not, the. buffer pointer 

is advanced 150 and unmarshalling continues. In this 
manner, processing continues until all the data from the 
message has been retrieved and there is -no more data in 
the buffer 120. 

30 

The format of the message sent to the IMS system depends 
on the state of the conversation between the application 
and the program on the IMS system. If there is a 
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conversation between the application and the program, the 
message must not contain the name of the IMS transaction 
to be invoked, otherwise included in the first segment of 
the message. The runtime keeps track of .the ongoing 
conversations and verifies that only valid user data is 
included in the messages sent to the IMS system. 

In addition, after every step of the conversation, the 
runtime writes the conversation identification to a 
persistent store. This step maintains a state to provide 
failure recovery. It is necessary because of an IMS 
structure that does not terminate conversations that are 
unfinished and leaves them in an inconsistent state. The 
utility provided as the part of the program runtime 
allows automatic termination of all suspended 
conversations once the user program is restarted. 

Referring to Figure 5, the source code of a sample COBOL 
IMS transaction is provided. Its parts defining input and 
output messages format are shown between begin and end 
comments. For the transaction to run correctly the data 
it receives must match exactly these definitions and 
therefore they determine the format of the generated C++ 
code. 

Figure 6 presents a set of generated files containing C++ 
classes used to compose an input message sent to a COBOL 
IMS transaction and read an output message returned by 
the COBOL IMS transaction. It includes complete source of 
the following files: 

• myclass.hpp - contains the definition of the 

user class with the appropriate runtime 
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initialization and a virtual definition of a 
method used to invoke the COBOL IMS transaction 
(add) .myclass. imc - defines a cstub class 
providing definition of the method used to 
invoke the COBOL IMS transaction ' 
(add)myclass.hpd - defines stub and Definition 
abstract classes, superclasses of the above 
cstub classmyclass . imd - defines classes 
representing: the input and output messages - 
myclass„_add__0 / myclass_add_JE; lpages of these 
messages - myclass__add__Lpagel , 
myclass__add_Lpage2; and fields of these lpages 
- myclass__add__Lpagel„args , 
myclass_add_Lpagel_result . myclass. vbe - 
contains a description of visual parts of the 
generated code that can be used in the Visual 
Composition Editor (VCE) of IBM's VisualAge C++ 
development tool .myclass . cpp - defines 
notification identifiers used by classes to 
notify about the change of their state when the 
generated code is used in the VCE. To use the 
generated code directly, without using the VCE, 
the user has to include the header file 
myclass -hpp, all other files and definitions 
are included automatically. 

The detailed descriptions may have been presented in 
terms of program procedures executed on a computer or 
network of computers. These procedural descriptions and 
representations are the means used by those skilled in 
the art to most effectively convey the substance of their 
work to others skilled in the art. They may be 
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implemented in hardware or software, or a combination of 
the two . 

A procedure is here, and generally, conceived to be a 
5 self -consistent sequence of steps leading to a desired 

result. These steps are those requiring physical 
manipulations of physical quantities. Usually, though not 
necessarily, these quantities take the form of electrical 
or magnetic signals capable of being stored, transferred, 

10 combined, compared, and otherwise manipulated. It proves 

convenient at times, principally for reasons of common 
usage, to refer to these signals as bits, values, 
elements, symbols, characters, terms, numbers, objects, 
attributes or the like. It should be noted, however, that 

15 all of these and similar terms are to be associated with 

the appropriate physical quantities and are merely 
convenient labels applied to these quantities. 

Further, the manipulations performed are often referred 
20 to in terms, such as adding or comparing, which are 

commonly associated with mental operations performed by a 
human operator. No such capability of a human operator is 
necessary, or desirable in most cases, in any of the 
operations described herein which form part of the 
25 present invention; the operations are machine operations. 

Useful machines for performing the operations of the 
present invention include general purpose digital 
computers or similar devices. 

30 Each step of the method may be executed on any general 

computer, such as a mainframe computer, personal computer 
or the like and pursuant to one or more, or a part of one 
or more, program modules or objects generated from any 
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programming language, such as C++, Java, Fortran or the 
like. And still further, each step, or a file or object 
or the like implementing each step, may be executed by 
special purpose hardware or a circuit module designed for 
5 that purpose. 

In the case of diagrams depicted herein, they are 
provided by way of example. There may be variations to 
these diagrams or the steps (or operations) described 

10 herein without departing from the spirit of the 

invention. For instance, in certain cases, the steps may 
be performed in differing order, or steps may be added, 
deleted or modified. All of these variations are 
considered to comprise part of the present invention as 

15 recited in the appended claims. 

While the description herein may refer to interactions 
with the user interface by way of, for example, computer 
mouse operation, it will be understood that within the 

20 present invention the user is provided with the ability 

to interact with these graphical representations by any 
known computer interface mechanisms, including without 
limitation pointing devices such as computer mouses or 
trackballs, joysticks, touch screen or light pen 

25 implementations or by voice recognition interaction with 

the computer system. 

While the preferred embodiment of this invention has been 
described in relation to the C++ language-, this invention 
30 need not be solely implemented using the C++ language. It 

will be apparent to those skilled in the art that the 
invention may equally be implemented in other computer 
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languages, such as object oriented languages like Java 
and Smalltalk. 

The invention is preferably implemented in a high level 
5 procedural or object-oriented programming language to 

communicate with a computer. However, the invention can 
be implemented in assembly or machine language, if 
desired. In any case, the language may be a compiled or 
interpreted language. 

10 

While aspects of the invention relate to certain computer 
language and other technological specifications (e.g. the 
Java Language Specification with respect to the Java 
computer language), it should be apparent that classes, 

15 objects, components and other such software and 

technological items referenced herein need not fully 
conform to the specif ication (s) defined therefor but 
rather may meet only some of the specification 
requirements. Moreover, the classes, objects, components 

20 and other such software and technological items 

referenced herein may be defined according to equivalent 
specif ication (s) other than as indicated herein that 
provides equivalent or similar functionality/ 
constraints, etc. Accordingly, features, functionality, 

25 constraints, etc. may be used other than as defined by 

the computer language and other technological 
specification. 

The invention may be implemented as an article of 
30 manufacture comprising a computer usable medium having 

computer readable program code means therein for 
executing the method steps of the invention, a program 
storage device readable by a machine, tangibly embodying 
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a program of instructions executable by a machine to 
perform the method steps of the invention, or a computer 
program product. Such an article of manufacture, program 
storage device or computer program product may include, 
5 but is not limited to, CD-ROMs, diskettes, tapes, hard 

drives, computer RAM or ROM and/or the electronic, 
magnetic, optical, biological or other similar embodiment 
of the program. Indeed, the article of manufacture, 
program storage device or computer program product may 

10 include any solid or fluid transmission medium, magnetic 

or optical, or the like, for storing or transmitting 
signals readable by a machine for controlling the 
operation of a general or special purpose programmable 
computer according to the method of the invention and/or 

15 to structure its components in accordance with a system 

of the invention. 

The invention may also be implemented in a system. A 
system may comprise a computer that includes a processor 

20 and a memory device and optionally, a storage device, an 

output device such as a video display and/or an input 
device such as a keyboard or computer mouse. Moreover, a 
system may comprise an interconnected network of 
computers. Computers may equally be in stand-alone form 

25 (such as the traditional desktop personal computer) or 

integrated into another apparatus (such a cellular 
telephone) . The system may be specially constructed for 
the required purposes to perform, for example, the method 
steps of the invention or it may comprise one or more 

30 general purpose computers as selectively activated or 

reconfigured by a computer program in accordance with the 
teachings herein stored in the computer(s). The 
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procedures presented herein are not inherently related to 
a particular computer system or other apparatus. The 
required structure for a variety of these systems will 
appear from the description given. 

5 

While the invention has been particularly shown and 
described with respect to preferred embodiments thereof, 
it will be understood by those skilled in the art that 
the foregoing and other changes in form and details may 
10 be made therein without departing form the spirit and 

scope of the invention. 
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CLAIMS 

Having thus described our invention, what we claim as 
new, and desire to secure by Letters Patent is: 



1 1/ A method for interfacing a program on an IMS 

2 / system to a program in another program 

3 environment, comprising the steps of: 

4 scanning an IMS transaction with the program on 

5 the IMS system; and 

6 generating a program interface, the program 

7 interface providing means for invoking the IMS 

8 transaction and converting data between the IMS 

9 transaction and the program in another program 
10 en v i r onmen t . 

1 2. The method of claim 1, wherein the interface 

2 comprises: 

3 a transaction part which provides for invoking 

4 the IMS transaction; 

5 a message part which provides for composing or 

6 reading an IMS message; and 

7 a lpage part which provides for dynamic 

8 composing or reading of an IMS message. 

1 3. The method of claim 1, further comprising the 

2 step of providing a runtime, the runtime comprising: 

3 means for translating data types of the program 

4 in another program environment to data types used in a 

5 message to the IMS system; 

6 means for composing the message to the IMS 

7 system; 



CA919980001US1 



-30- 



13498. rlc 

lsG:IBM\105\1349 8\SPEC\1349 8.rlc 



1 means for translating data types used in a 

2 message from the IMS system to data types of the program 

3 in another program environment; and 

4 means for reading the message from the IMS 

5 system. 

1 4. The method of claim 3, wherein the runtime 

2 further comprises means for accessing the IMS transaction 

3 via the MQSeries messaging interface. 

1 5. The method of claim 1, further comprising the 

2 step of compiling the program interface into the program 

3 in another program environment. 

1 6. The method of claim 3, further comprising the 

2 step of compiling the runtime into the program in another 

3 program environment. 

1 7. The method of claim 1, further comprising the 

2 step of providing means for converting code pages between 

3 the another program environment and the IMS system. 

1 8 . A computer program product for interfacing a 

2 /program on an IMS system to a program in another program 

3 environment, comprising: 

4 instruction means for scanning an IMS 

5 transaction with the program on the IMS system; and 

6 instruction means for generating a program 

7 interface, the program interface providing means for 

8 invoking the IMS transaction and converting; data between 

9 the IMS transaction and the program in another program 
1 0 en vi r onmen t . 
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1 9. The computer program product of claim 8, 

2 wherein the interface comprises: 

3 a transaction part which provides for invoking 

4 the IMS transaction; 

5 a message part which provides for composing or 

6 reading an IMS message; and 

7 a lpage part which provides for dynamic 

8 composing or reading of an IMS message. 

1 10. The computer program product of claim 8, 

2 further comprising instructions means for providing a 

3 runtime, the runtime comprising: 

4 means for translating data types of the program 

5 in another program environment to data types used in a 

6 message to the IMS system; 

7 means for composing the message to the IMS 

8 system; 

9 means for translating data types used in a 

10 message from the IMS system to data types of the program 

11 in another program environment; and 

12 means for reading the message from the IMS 

13 system. 

1 11. The computer program product of claim 10, 

2 wherein the runtime further comprises means' for accessing 

3 the IMS transaction via the MQSeries messaging interface. 

1 12. The computer program product of claim 8, 

2 further comprising instruction means for compiling the 

3 program interface into the program in another program 

4 envi ronment . 
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1 13. The computer program product of claim 10, 

2 further comprising instruction means for compiling the 

3 runtime into the program in another program environment. 

1 14. The computer program product of claim 8, 

2 further comprising instruction means for converting code 

3 pages between the another program environment and the IMS 

4 system. 

1 IS-. A computer program product for interfacing a 

2 program on an IMS system to a program in another program 

3 environment, comprising: 

4 instruction means for scanning an IMS 

5 transaction with the program on the IMS system producing 

6 a data description of said IMS transaction; and 

7 instruction means for using said data 

8 description to generate code for invoking said IMS 

9 transaction. 

1 16. The computer program product of claim 15, 

2 further comprising: 

3 instruction means for using said data 

4 description to generate code to process message elements 

5 of said IMS transaction for use with the program in 

6 another language environment. 

1 1^ A computer program product for interfacing a 

2 program on an IMS system to a program in another program 

3 environment, comprising: 

4 instruction means for invoking an IMS 

5 transaction with the program on the IMS system; and 
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1 instruction means for converting data between 

2 the IMS transaction and the program in another program 

3 environment . 

1 18. The computer program product of claim 17, 

2 wherein the instruction means for converting further 

3 comprises : 

4 instruction means for translating data types of 

5 the program in another program environment to data types 

6 used in a message to the IMS system; 

7 instruction means for composing the message to 

8 the IMS system; 

9 instruction means for translating data types 

10 used in a message from the IMS system to data types of 

11 the program in another program environment; and 

12 instruction means for reading the message from 

13 the IMS system. 

1 19. The computer program product of claim 17, 

2 wherein the instruction means for converting further 

3 comprises instruction means for accessing the IMS 

4 transaction via the MQSeries messaging interface. 

1 20. The computer program product of claim 17, 

2 further comprising instruction means for converting code 

3 pages between the another program environment and the IMS 

4 system. 

1 21. An article of manufacture comprising a computer 

2 usable medium having computer readable program code means 

3 therein for executing the method steps of claim 1. 
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1 27. A system for interfacing a program on an IMS 

2 ^system to a program in another program environment, 

3 comprising: 

4 means for scanning an IMS transaction with the 

5 program on the IMS system; and 

6 means for generating a program interface, the 

7 program interface providing means for invoking the IMS 

8 transaction and converting data between the IMS 

9 transaction and the program in another program 
1 0 en v i r onmen t . 

1 23. The system of claim 22, further comprising 

2 means for providing a runtime, the runtime comprising: 

3 means for translating data types of the program 

4 in another program environment to data types used in a 

5 message to the IMS system; 

6 means for composing the message to the IMS 

7 system; 

8 means for translating data types used in a 

9 message from the IMS system to data types of the program 

10 in another program environment; and 

11 means for reading the message from the IMS 

12 system. 

1 2^. A system for interfacing a program on an IMS 

2 system to a program in another program environment, 

3 comprising: 

4 means for scanning an IMS transaction with the 

5 program on the IMS system producing a data description of 

6 said IMS transaction; and 

7 means for using said data description to 

8 generate code for invoking said IMS transaction. 
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1 25. The system of claim 24, further comprising: 

2 means for using said data description to 

3 generate code to process message elements of said IMS 

4 transaction for use with the program in another language 

5 environment. 

1 26. A system for interfacing a program on an IMS 

2 /system to a program in another program environment, 

3 comprising : 

4 means for invoking an IMS transaction with the 

5 program on the IMS system; and 

6 means for co nverting data between the IMS 

7 transaction and the program in another program 

8 environment. 

1 27. The system of claim 26, wherein the means for 

2 converting further comprises: 

3 means for translating data types of the program 

4 in another program environment to data types used in a 

5 message to the IMS system; 

6 means for composing the message to the IMS 

7 system; 

8 means for translating data types used in a 

9 message from the IMS system to data types of the program 

10 in another program environment; and 

11 means for interpreting the message from the IMS 

12 system. 
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AUTOMATED INTERFACE GENERATION FOR COMPUTER PROGRAMS IN 



DIFFERENT ENVIRONMENTS 
ABSTRACT OF THE DISCLOSURE 

5 

Automated interface generation for computer programs 
operating in different environments is provided. An 
automated interface generation system, method, computer 
program product and article of manufacture is provided 

10 comprising an import utility and a runtime environment. 

The import utility imports a COBOL IMS transaction source 
file, parses the specified input and output message 
records, and generates an application programming 
interface. The application programming interface operates 

15 with the runtime environment to take the data values from 

the language of a different environment and translate 
them to a formatted IMS input message. This format is 
derived from the definition of the input message record 
in the COBOL IMS transaction source file. After the IMS 

20 transaction has executed, the resulting IMS output 

message is translated back to the data values of the 
language of the different environment, said values 
including the results of the transaction. The translation 
step handles data conversion between different code 

25 pages, machine architectures, and program semantics, and 

handles the dynamic nature of IMS messages. 
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FIGURE 5 



IDENTIFICATION DIVISION. 
ENVIRONMENT DIVISION. 
DATA DIVISION . 



WORKING- STORAGE SECTION. 
77 FILLER 



PiC X(16) VALUE '*** BEGIN WS *** 1 . 
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* IMS DECLARATIONS 
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77 
77 
77 
77 
77 
77 
77 



DEF-MOD 
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* begin IMS COBOL input message definition 

01 INPUT -MESSAGE . 



02 
02 
02 
02 



IN-LL 
IN-ZZ 

IN - TRi-jNCODE 
IN- DATA. 
03 OPi 
03 OP2 
0 3 FILLER 



PIC S9(4) COMP. 

PIC S9 (4) COMP. 

PIC X(8) . 

PIC 9(4) DISPLAY. 

PIC 9(4) DISPLAY. 

PIC X{32687) . 



* end IMS COBOL input message definition 

* begin IMS COBOL output message definition 

01 OUTPUT -MESSAGE. 

02 OUT-LL PIC S9<4) COMP VALUE +8. 

02 OUT-ZZ PIC S9(4) COMP VALUE +0. 

02 RESULT1 PIC 9(4) DISPLAY. 

* end IMS COBOL output message definition 



01 DLI -MSG . 

02 DLIMSG-1 PIC X(18) 

02 DLIMSG- CALL PICX(10) 

02 DLIMSG-2 PIC X{18) 

02 DLIMSG -STAT PICX(2). 

02 DLIMSG-3 PIC X{22) 



VALUE ■ ERROR ON DLI CALL 



VALUE 



VALUE 



STATUS CODE WAS 



LINKAGE SECTION. 

01 IOPCB. 

02 IO-LTERM 
02 IO-RESV 



PIC X(8) 
PIC X(2) 



02 
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IO -STATUS 
IO -DATE 



PIC X(2) . 
PIC XXXX. 
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02 
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TIME 


PIC 
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MODN 


PIC 
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GROUPID 


PIC 
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PROCEDURE DIVISION. 

ENTRY 1 DLITCBL ' USING TOPCB. 

PERFORM GET- IMS - MSG UNTIL {IO-STATUS = * QC 1 ) . 
GOBACK . 



**************************************************************** 
* GET IMS MESSAGES FROM INPUT QUEUE AND PROCESS 

*************************** ************************************* 
GET- IMS-MSG . 

MOVE SPACES TO IN- DATA. 

MOVE SPACES TO INPUT -MESSAGE . 

CALL 1 CBLTDLI 1 USING GU-FUNC, IOPCB, 

INPUT -MESSAGE . 



EVALUATE IO-STATUS 
WHEN 1 

COMPUTE RESULT1 = OP1 + OP2 
DISPLAY 'OPERAND 1: 1 OP1 
DISPLAY * OPERAND 2: ' 0P2 
DISPLAY 1 RESULT 1: ' RESULT1 
PERFORM I SRT- MESSAGE 
WHEN ' QC 1 

DISPLAY 'QC STATUS CODE RETURNED '- 
WHEN NOT 'QC* 

MOVE ' GU#MSGQ ' TO DLIMSG-CALL 
MOVE IO-STATUS TO DLIMSG- STAT 
PERFORM D- RETURN -CODE 
END- EVALUATE . 



**************************************************************** 

* ERROR ROUTINE TO CATER FOR UNEXPECTED DL1 STATUS CODES 
**************************************************************** 

D- RETURN- CODE. 

DISPLAY DLI-MSG. 
MOVE 0 TO RESULT1. 
PERFORM ISRT-MESSAGE . 
GOBACK . 



**************************************************************** 
* ROUTINE TO INSERT A MESSAGE TO THE TERMINAL 

**************************************************************** 
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ISRT-MESSAGE. 



* 



IF IO-MODN = 'MQIMSVS' 
MOVE 'MQIMSVS' 
MOVE ' T0 040O2 1 



TO DEF-MOD 
TO DEF-MOD 



ELSE 



MOVE 'DFSMOl' 
MOVE 'T0040O2 
MOVE 'T0040O2' 



TO DEF-MOD. 
TO DEF-MOD. 
TO IO-MODN 



DISPLAY ' DEF-MOD ; 1 DEF-MOD. 

DISPLAY ' IO-MODN : 1 IO-MODN. 

CALL 1 CBLTDLI 1 USING ISRT-FUNC, IOPCB, 
OUTPUT -MESSAGE , DEF-MOD . 

IF IO-STATUS NOT ^ SPACES 

MOVE ' ISRT#M' TO DLIMSG-CALL 
MOVE IO-STATUS TO DLIMSG-STAT 
DISPLAY DLI-MSG 

CALL 'CBLTDLI 1 USING ROLL-FUNC, IOPCB. 
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MYCLASS. KP? 
#ifncief _MYCLASS_HPP_ 
#define _MYCLASS_HPP_ 

// 

// FILE NAME: myclass. hpp 

// 

#include <idaif.hpp> 
#include <idaifs.hpp> 
# include <idabndg.hpp> 
# include <idach.hpp> 
# include <idamw.hpp> 
^include <idauuid.hpp> 
#include <idaexc.hpp> 

^include <ibag.h> 
#include <idaifb,hpp> 
#include <ixdims.hpp> 
#include <ixdimstr .hpp> 
^include <ixdimsac . hpp> 
#include <ixdimsca . hpp> 
#include <ixdimsco . hpp> 
#include < ixdimsns . hpp> 
#include <ixdimspo . hpp> 
#include <ixdimspf . hpp> 
#include "myclass . imc" 

class myclass : 

public IStandardNotif ier, 
public IXDMQIMSConversation, 
public IDAInterfaceBase, 
public virtual myclassDef ini tion 

( 

pub 1 1 C : 

myclass ( } 
{ 

// Tell object to use IMS stubs 
try { 

^ this->getInterfaceStub { IXDMQIMS :; instance (}) ; 

catch (IDANoInterfaceStubException& ex) { 

this->addInterfaceStub (Mnew ims_myclass_cstub) 
IXDMQIMS: : instance () ) ; 
} 

// Set up MQI persistence attributes 
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this->addAttributes (filXDMQIMSPersistenceOf f : : instance {) ) ; 
this->addAttributes { addFv_name ( } , &IXDMQIMSPersistenceOf f : : instance () ) ; 

pimsco_ = new IXDMQIMSConvAttr ( (IXDMQIMSConversation *} this); 
this- >addAttributes { pimsco_ }; 

pimsac_ = new IXDMQIMSAccess ( (char *) getName ()) ; 
this->ad&Attributes (pimsac_) ; 
IXDMQIMSTransaction *trans,* 

trans =* new IXDMQIMSTransaction ( "TCLI0040 " , 

'1\ 

(char * } getName ( ) , 
'C 

, 0x20 
H tt 

, 1 
, o 

, 0x2 0 
it ii 

, 1 

, o 

) ; 

imstatts_.add{ (void *) trans ) ; 
this->addAttributes (addFvjiame ( ) , trans) ; 

imsns_ = new IXDMQIMSNameService (&IXDMQIMS : : instance ( ) , getPrimaryld { ) , 

getSecondaryldO , (char *) getName ()) ; 

IXDMQIMS: ; instance { ) . addNameService (imsns_) ; 

/ / Import from correct place 

this ->importBmdings (IXDMQIMS : : instance () ) ; 

} 

-myclass ( ) { 

if (NULL != pimscoj 

delete pimsco_; 
if (NULL ! = pimsac_) 

delete pimsac__; 

IXDMQIMSTransaction *tr; 
while ( ! imstatts_. isEmpty ( ) ) { 

tr = (IXDMQIMSTransaction *) ims tatts_ . anyElement ( ) ; 

imstatts_ . remove (tr) / 

delete tr; 

} 

IXDMQIMS : : instance ( ) . removeNameService { imsns_} ; 
delete imsns_; 

} 
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virtual void add ( myclass_add_I* inputMsg, myclass_add_0* outputMsg ) 
IDABinding* binding; 

if (blist .numberOf Elements () == 0) 
(( my class *) this) ->blist = 

( (myclass *) this) - >importBindings ( ) ; 

IBag< IDABinding *>::Cursor current (blist ) ; 

current . setToFirst ( ) ; 

if (! current. isValidO ) { 

throw IDANoBindingExceptionf* (myclass *)this); 

binding = blist . elementAt (current ) ; 

IDACallHandle ch = binding- >mw ()- >createCallHandle () ; 
ch.set ( ( (myclass *) this) ->getPrimaryId { ) , 

( (myclass * ) this ) - >getSecondaryId ( ) , 

addFv_name ( ) , binding) ; 

({myclass * ) this) ->setAttributes (ch) ; 
ch . genRequest ( ) / 
try { 

( (ims_myclass_cstub *) ( (myclass 
*) this) ->getInterfaceStub(*binding->mw() ) ) ->add(ch, inputMsg, outputMsg) ,- 
ch.genConf irm() ; 
} catch (IExceptionk ex) { 
ch . genConf irm ( ) ; 
throw (ex) ; 




private : 

IXDMQIMSNameService *imsns_; 
IXDMQIMSConvAttr *pimsco_; 
IXDMQIMSAccess *pimsac_; 
IBag<void *> imstatts ; 

}/ 

ttendif 

MYCLASS . IMC 
tfifndef _MYCLASS_IMC__ 
tfdefine _MYCLASS_IMC_ 

// 

// FILE NAME: myclass . imc 
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#include <ixdimsex.hpp> 
#include <idacicch.hpp> 
# include <ixdimsch. hpp> 

#include "myclass . hpd" 

class ims_jpyclass_cstub : 

public IDAInterfaceStub, 
public myclass_stub { 

public ; 

static ims_myclass_cstub& instance 0 

{ 

if <instance__ NULL) 

instance_ = new itns_myclass_cstub; 
return (*instance_) ; 

} 

void add ( IDACallHandlefc ch, myclass_add_I* inputMsg, myclass_add_0* 
outputMsg) 

{ 

ch. start ( ) ; 

ch << (myclass_add_I&) (*inputMsg) ; 
ch. transceive ( ) ; 

ch >> (myclass_add_0&) {* outputMsg) ; 
outputMsg- >notify ( ) ; 
ch . done ( ) ; 

} 



private : 

static ims_my classics tub* mstance_; 

}; 

ims jnyc lass __cs tub* ims_myclass_cstub ; : instance^ - NULL; 
ttendif 

MYCLASS . HPD 
ttifndef _MYCLASS_HPD_ 
#define __MYCLASS_HPD_ 

// Class: myclass 

// 

// FILE NAME : myclass . hpd 

// 
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# include < is t ring . hpp> 
^include <idauuid. hpp> 
# include <idaifd.hpp> 
^include <idach.hpp> 

#include "myclass . imd" 



clans ■uyciassDef inition ; public virtual IDAInterf aceDef inition 

r 

i 

public : 

myclassDef inition ( ) 

{ 

setSecondaryld {IDAUuid: :nil . toString ( ) ) ; 
setName ("myclass"); 

} 

IDAUuid getPrimaryldO { 

return IDAUuid ( " 16 5c9ec5 -2ald- 02f 0-8000-4 00011528 5 84 " } ; 

} 

IString addFv_name ( ) const { 

return IString ( "void myclass :: add ( myclass_add_I* inputMsg, 
myclass_add_0* outputMsg ) 11 ) ; 

} 

private : 

}; 

class myclass_stub : public virtual myclassDef inition 
{ 

public : 

virtual void add ( IDACallHandlek ch, myclass_add_I* inputMsg, 
myclass_add_0* outputMsg) = 0; 

}; 

#endif 

MYCLASS . IMD 
#ifndef _MYCLASS_IMD_ 
^define _MYCLASS_IMD_ 

// 

// FILE NAME: myclass . imd 

// 

#include <istdntf y . hpp> 
#mclude < istring . hpp> 
^include <idach.hpp> 
#include <idacicch . hpp> 
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#include <inotif ev. hpp> 
^include <istdntf y . hpp> 
tfinclude <istring . hpp> 
#include <ivseq.h> 
#include < ixdimsex . hpp> 
^include <ixdimstg. hpp> 

class myclass_add_ Lpage,l_args { 
public; 

myclass_add_Lpagel_args { ) { 

opl_ = 0; 

op2_ = 0; 
opl_flag_ ~ 0; 
op2_flag_ = 0; 

} 

unsigned short int opl_; 
IBoolean opl__flag_; 
unsigned short int op2_; 
IBoolean op2_flag_; 



inline I DACa 11 Handled operator<< ( IDACallHandlefc ch, const 

myclass_add_Lpagel_args& d) 

{ 

ch. offsetLLO ; 

ch << IDACICSCallHandlelnternal: ; PIC (ch, "9(4)"); 

ch << IDACICSCallHandlelnternal : : AUG ( ch , "DISPLAY_NUMERIC" ) ; 

ch << (unsigned short int &)d.opl_; 

ch << IDACICSCallHandlelnternal: : PIC (ch, "9 (4)"); 

ch <^ IDACICSCallHandlelnternal: : AUG {ch, "DISPLAY^NUMERIC" ) ; 

ch << (unsigned short int &)d.op2 ; 

ch.setLLO ; 

return ch; 

} 

class myclass_add_Lpagel : public IS tandardNot if ier { 
public ; 

myclass_add_Lpagel ( ) 

{ 
} 

~myclass_add_Lpage 1 ( ) 

{ 
} 

myclass_add_Lpagel& operator^ (const myclass add Lpagelk aLpagel 

{ _ _ . 

setopl (aLpagel_ opl ( ) ) ; 
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setop2 (aLpagel_. op2 ( J ) ; 
return *this; 

} 

myclass_add_Lpagel (const myclass_add_Lpagel& aLpagel_] 
{ 

setopl (aLpagel_.opl {)) ; 
setop2 (aLpagel_.op2 () ) ; 

} 

void ro; ^fy{) 
{ 

if (args_.opl_f lag_) notif yObservers ( INotif icationEvent (setoplld, 
*tbis) ) ; 

if (args__.op2_f lag_) notif yObservers ( INotif icationEvent (setop2Id, 
*this) ) ; 
} 

unsigned short int opl {} const 

{ 

return (args_.opl_) ; 

} 

static INotif icationld setoplld; 

myclass_add_Lpagel& setopl (const unsigned short int& aopl) 

{ 

args_.opl_ = aopl,* 

not if yObservers { INotif icationEvent {setoplld, *this) ) ; 
return *this; 

> 

unsigned short int op2 {) const 

{ 

return (args_. op2_) ; 

} 

static INotif icationld setop2Id; 

myclass_add_Lpagel& setop2 (const unsigned short int& aop2) 
{ 

args_.op2_ = aop2 ; 

notifyObservers { INotif icationEvent { setop2Id, *this) ) ; 
return *this; 

} 

myclass_add_Lpagel_args args_; 

}; 

inline IDACallHandlefc operator<< (IDACallHandlei ch, const myclass_add_Lpagel& 
d) 

{ 
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ch << (myclass_add_Lpagel_args &)d.args_; 
return ch; 

} 

class myclass_add__I : public IStandardNotif ier { 
public : 

myclass_add_I () 

{ 

Lpagel_.add^. c ; thirst (new myclass_add_Lpagel } ; 
Lpagel_"Clag_ = 0; 

} 

~myclas.-3_add__I () 

{ 

while ( ILpagel^. is Empty 0 ) { 

myclass_add_Lpagel* anElement = Lpagel_. f irstElement ( ) ; 
Lpagel_. removeFirst { ) ; 
delete anElement; 

} 

} 

myclass_add_I& operator= (const myclass_add_I& ainputMsg) 

{ 

while (! Lpagel_. isEmpty 0 ) { 

myclass_add_t,pagel* anElement = Lpagel__ . f irstElement {) ; 
Lpagel_. removeFirst ( ) ; 
delete anEleme/.t; 

} 

IVSequence<myclas£:_ add_Lpagel*> : : Cursor cursor (ainputMsg . Lpagel_} ; 
forCursor (cursor ) 

Lpagel_. addAsLast (new myclass_add_Lpagel ( *cursor . element ( ) ) ) ; 
notifyObservers u Notif icationEvent (Lpagel_Id, -*this) ) ; 
Lpagel_f lag_ = ainputMsg. Lpagel_fiag_ ; 
return *this; 

} 

myclass_add_I (const myclass_add_lS: ainputMsg) 

{ 

IVSequence<myclass_add_Lpagel* > : : Cursor cursor (ainputMsg. Lpagel_) ; 
forCursor (cursor) 

Lpagel_. addAsLast (new myclass_add_Lpagel {* cursor . element ( ) ) ) ; 
notifyObservers ( INotif icationEvent (Lpagel_Id, *this) ) ; 
Lpagel_f lag_ = ainputMsg . Lpagel_flag_ ; 

> 

void notify () 

{ 

if (Lpagel_f lag_) { 

notifyObservers ( INot if icationEvent ( Lpagel_seqld , *this)J; 
notifyObservers ( INotif icationEvent (Lpagel_Id, *this) } ; 
notifyObservers ( INot if icationEvent ( setoplld, *this) ) ; 
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notifyObservers { INotif icationEvent ( setop2Id, *this) ) ; 

} 

} 

IVSequence<myclass_add_Lpagel*> Lpagel_seq { ) { 
return (Lpagel_) ; 

} 

static INotif icationld Lpagel_seqld; 

myclass_add_I & setLpagel_seq < TVSc queace<myclass_add_Lpagel* > * 
aLpagel_) { 

while ( I Lpagel_ . ibKaipty ( J J { 

myclass_adn_Lpagel* anElement = Lpagel_ . f irstElement {} ; 
Lpagel_. rc ? noveFirst ( ) ; 
delete aaElement; 

} 

IVSequence<myclass_add_Lpagel*> : :Cursor cursor ( *aLpagel_) ; 
forCursor (cursor) 

Lpagel_.addAsLast (new myc las s_add_Lpagel ( * cursor . element ( ) ) ) ; 
notifyObservers (INotif icationEvent (Lpagel_seqld, *this) ) ; 
return *this; 

} 

myclass_add_Lpagel Lpagel 0 { 

return (* (Lpagel_ . f irstElement { ) ) ) ; 

} 

static INotif icationld T ipagel_Id; 

myclass_add_I & setLpagel ( myclass_add_Lpagel* aLpagel_) { 

while { !Lpagel_. isEmpt/O ) { 

myclass_add_Lpagel* anElement = Lpagel_ . f irstElement () ; 
Lpagel_ . removeFirst ( } ; 
delete anElement; 

} 

Lpagel_. add (new myclast' _add_Lpagel ( *aLpagel_) ) ; 
notifyObservers ( INotif icationEvent {Lpagel_Id, *this) ) ; 
return *this; 



unsigned short int opl ( ) const 

return { Lpagel_ . f irstElement {)- >opl (}) ; 

static INotif icationld setoplld; 
myclass_add_I & setopl ( const unsigned short int& aopl 



Lpagel_. f irstElement (} ->setopl (aopl) ; 

notifyObservers ( INotif icationEvent (setoplld, *this) ) ; 
return *this; 

unsigned short int op2 ( } const 
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return ( Lpagel_. f irstElement ( ) ->op2 { ) ) ; 

} 

static INotif icationld setop2Id; 
myclass_add__I & setop2 ( const unsigned short int& aop2 

) 

{ 

Lpagel_. f irstElement () ->setop2 (aop2) ; 

notifyObservers { INotif icationEvent (setop2Id ( *this) ) ; 
return *this; 

} 

I VSequence <myc las s_add_Lpage 1 * > Lpage 1_ ; 
IBoolean Lpagel_f lag_; 

}; 

inline IDACallHandlefc operator<< (IDACallHandle& ch, myclass_add_I& d) 

{ 

IVSequence<myclass_add_Lpagel *>::Cursor cursor (d. Lpagel_) ; 
forCursor (cursor) { 

ch << d. Lpagel_. element At (cursor) ; 

d.Lpagel_f lag_ = 1; 

} 

ch. setPageBit { ) ; 

ch . stripNull Segments { ) ; 

return ch; 

} 

class myclass_add_Lpage2^ result { 
public : 

myclass_add_Lpage2_ result { ) { 

resultl_ = 0; 
result l__flag_ = 0; 

} 

unsigned short int result 1_; 
IBoolean resultl_f lag_; 

}; 

mime IDACallHandlek operator>> (IDACallHandlei ch, 

myclass_add_Lpage2_result& d) 

{ 

if (ch.notNullSegment {) ch . stripLL ( ) ) { 

ch >> IDACICSCallHandlelnternal : :PIC(ch, "9(4) " ) ; 

ch >> IDACICSCallHandlelnternal: : AUG (ch, "DISPLAY_NUMERIC " ) ; 

ch >> {unsigned short int &) d. resultl_; 

if (ch. f leldlsSet () ) d . result l_flag_ = I; 



CA9-1998-0001-CA1 



10 



} 

return ch; 

} 

class myclass_add_Ljpage2 : public IStandardNotif ier { 
public : 

myclass_add_Lpage2 0 

{ 
} 

~myclass_add__Lpage2 ( ) 

{ 
} 

myclass_add_Lpage2& operator^ (const myclass_add_Lpage2& aLpage2_) 

( 

setresultl (aLpage2_. result 1 () ) ; 
return *this; 

} 

myc las s_add_Lpage2 (const myclass__add_Lpage2& aLpage2_) 

{ 

setresultl (aLpage2__. resultl ( ) ) ; 

} 

void notify () 

{ 

if (result^, resultl^f 3 ag_) 
notifyObservers ( INotif icat ionEvent ( setresultlld, *th-i a) ) ; 

) 

unsigned short int resultl () const 

{ 

return {result_ . resultl^) ; 

} 

static INotif icationld setresultlld; 

myclass_add_Lpage2& setresultl (const unsigned short mt& aresultl) 

{ 

result^. resultl_ = aresultl; 

notifyObservers ( INotif icat ionEvent (setresultl Id, *this)); 
return *this; 

} 

myclass_add_Lpage2_result result_; 
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inline IDACallHandle& operator>> (IDACallHandle& ch, myclass_add_Lpage2 & d) 
ch >> (myclass_add_Lpage2_result &)d.result_; 
return ch; 

} 

class myclass_add__0 : public IStandardNotif ier ( 
public : 

myclass_add_0 ( ) 

{ 

Lpage2_. addAsFirst (new myclass_add_Lpage2 ) / 
Lpage2_flag_ = 0; 

} 

~myclass_add_0 ( } 
{ 

while ( !Lpage2_. isEmpty () ) { 

myclass_add_Lpage2* anElement = Lpage2_. f irstElement ( } ; 
Lpage2_. removeFirst ( ) ; 
delete anElement; 

} 

} 

my c las s_add JD& operator= (const myclass_add 0& aoutputMsg) 

{ 

while ( lLpage2_. isEmpty{ ) ) { 

myclass_add_Lpage2* anElement = Lpage2_. f irstElement '); 
Lpage2_. removeFirst { ) ; 
delete anElement; 

} 

IVSequence<myclass_add_Lpage2*> : :Cursor cursor (aoutputMsg . Lpage2_) ; 
forCursor (cursor) 

Lpage2_ . addAsLast (new myclass_add_Lpage2 { *cursor . element ( ) ) ) ; 
notifyObservers ( INotif icationEvent (Lpage2_Id, *this) ) ; 
Lpage2_flag_ = aoutputMsg . Lpage2_f lag_; 
return *this; 

} 

myclass_add_0 (const myclass_add_0& aoutputMsg) 
{ 

IVSequence<myclass_add_Lpage2*> : : Cursor cursor (aoutputMsg . Lpage2_) ; 
forCursor (cursor) 

Lpage2_ . addAsLast (new myclass_add_Lpage2 ( *cursor . element { ) ) ) ; 
notifyObservers ( INotif icationEvent (Lpage2_Id , *this)); 
Lpage2_flag_ = aoutputMsg . Lpage2_flag__; 

} 

void notifyO 
{ 

if (Lpage2_f lag_) { 

notifyObservers^ ( INotif icationEvent (Lpage2_seqld, *this) ) ; 
notifyObservers ( INotif icationEvent (Lpage2_Id, *this) ) ; 
notifyObservers ( INotif icationEvent ( setresul tlld, *this) ) ; 
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} 

} 

IVSequence<myclass_add_Lpage2*> Lpage2_seq{) { 
return (Lpage2_) ; 

} 

static INotif icationld Lpage2_seqld; 

myclass_add_0 & setLpage2_seq { IVSequence<myclass_add_Lpage2 * > * 
aLpage2_) { 

while ( !Lpage2_. isEmptyO ) { 

myclass_add - Lpage2* anElement = Lpage2_. f irstElement () ; 
Lpage2__ . removeFirst 0 ; 
delete anElement; 

} 

IVSequence<myclass_add_Lpage2*> ; : Cursor cursor (*aLpage2_) ; 
f orCursor (cursor) 

Lpage2_.addAsLast {new myclass_add_Lpage2 (*cursor . element 0 ) ) ; 
notifyObservers (INotif icationEvent (Lpage2_seqld, *this) ) ; 
return *this; 

} 

myclass_add_Lpage2 Lpage2 () { 

return (* (Lpage2_. f irstElement ( ) ) ) ; 

} 

static INotif icationld Lpage2_Id; 

myclass_add_0 & setLpage2 ( myclass__add_Lpage2* aLpage2_) { 

while ( !Lpage2_. isEmptyO ) { 

myclass_add_Lpage2* anElement = Lpage2_, f irstElement () ; 
Lpage2_. removeFirst {) ; 
delete anElement; 

} 

Lpage2_. add (new myclass_add_Lpage2 (*aLpage2_) } ; 
notifyObservers { INotif icationEvent {Lpage2_Id, *this) } ; 
return *this; 

} 

unsigned short int resultl ( ) cons: 

( 

return { Lpage2_. f irstElement () ->resultl {)) ; 

) 

static INotif icationld setresultlld; 
myclass_add_0 & setresultl { const unsigned short mt& 

aresultl ) 

{ 

Lpage2_. f irstElement ( ) ->setresultl (aresultl) ; 
notifyObservers { INotif icationEvent (setresultlld, *this) ) ; 
return *this; 

} 

IVSequence<myclass_add_Lpage2 *> Lpage2_; 
IBoolean Lpage2__f lag_; 

}; 

inline IDACallHandle& operator>> ( IDACallHandle& ch, myclass_add_0£f d) 

{ 
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while (ch.notAtEndOfBuf fer() ) { 
while <id.Lpage2_. isEmpty (} ) { 

myclass_add_Lpage2* anElement = d.Lpage2__. f irstElement ( ) ; 
d . Lpage2__ . removeFirst ( ) ; 
delete anElement; 

} 

myclass_add___Lpage2 tempLpage2_; 
while (ch.notAtEndOfBuf ferOrSeq(0, 1, "0")) { 
ch » (myclass_add_Lpage2 &} tempLpage2_; 

d.Lpage2_.addAsLast (new myclass_add_Lpage2 ( tempLpage2_) ) ; 
d.Lpage2_f lag_ = 1; 

} 

if ( I ch . unmarshalLPAGE { ) ) { 
if (ch. not Null Segment 0 ) { 

throw I XDMQ I MS Except ion ( (const char *) 

IMessageText (160 , IXDMQIMS_MSG_FILE) ) ; 
} else { 

throw IXDMQIMSException( (const char *) 

IMessageText (161, IXDMQIMS_MSG_FILE) ) ; 

} 

} 

} 

return ch; 

} 

#endif 

MYCLASS. VBE 

/ /VBBeginPartlnf o : myclass 
//VBParent : IStandardNotif ier 
//VBIncludes : "myclass . hpp " _MYCLASS_HPP_ 
//VBPartDataFile : myclass. vbb 
//VBConstructor : myclass () 
//VBComposerlnfo : nonvisual 
//VBLibFile: idacom.lib 
//VB: idaimslO.lib 

//VBEvent: ready , "ready " , readyld 

//VBAction: add, "add method" , void , add (myclass_add_I * mputMsg, myclass_add_0* 
outputMsg) 

//VBPref erredFeatures : add, enabledForNotif ication, this 

//VBEndPartlnf o : myclass 

//VBBeginPartlnf o : myclass_add_I 

//VBParent; IStandardNotif ier 

//VBIncludes; "myclass . hpp " J4YCLASS_HPP_ 

//VBPartDataFile: myclass. vbb 

/ /VBConstructor : myc lass_add_I ( ) 

//VBComposerlnfo: nonvisual 

//VBEvent: ready, "ready", readyld 

//VBAttribute : Lpagel_seq, "Lpagel_seq" , IVSeguence<myclass_add_Lpagel* > , 
IVSequence<myclass_add_Lpagel* > Lpagel_seq ( ) , myclass_add_I & setLpagel_seq ( 
IVSequence<myclass_add_Lpagel* > * aLpagel_) , Lpagel_seqld 
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//VBAt tribute: Lpagel_, "Lpagel_" , myclass_add_Lpagel , ~myclass_add__Lpagel 

Lpagel (), myclass_add_I & setLpagel { myclass_add_Lpagel* aLpagel_) , 

Lpagel_Id 

//VBAttribute : op i_, "op 1" , unsigned short int # unsigned short int 

opl () , myclass_add__I & se topi (unsigned short int aopl) , setoplld 

//VBAttribute: op2_ ( "op2 unsigned short int .unsigned short int 

op2 ( ) , myclass_add_I & set op2 (unsigned short int aop2 ) , setop2Id 

//VBPreferredFeati'res : Lpagel_seq, Lpagel_, opl__, op2_, this 

//VBEndPaxcTnro. myclass_add_l* 

//VBBecjinPartlnfo: myclass_add_Lpagel 

/ /VBParent : IStandardNotif ier 

//VBIncludes : "myclass .hpp" __MYCLASS_HPP_ 

//VBPartDataFile: myclass.vbb 

//VBConstructor : myclass_add_Lpagel ( ) 

//VBComposerlnf o : nonvisual 

//VBEvent : ready, "ready" , readyld 

/ /VBAction: operator^, "Assigns 

myclass_add_Lpagel u , myclass_add_Lpagel&, operator^ (const myclass_add_Lpagel& 
aLpagel_J 

//VBAttribute: opl_, "opl" , unsigned short int, unsigned short int opl ( ) , 

myclass_add_Lpagel & setopl (unsigned short int aopl) , setoplld 

//VBAttribute: op2_, "op2" , unsigned short int, unsigned short int op2 { ) , 

myclass_add_Lpagel & setop2 (unsigned short int aop2 ) , setop2Id 

//VBPref erredFeatures : operator-, opl_, op2_, this 

//VBEndPartlnf o : myclass_add_Lpagel 

//VBBeginPartlnf o : myclass_add_0 

//VLParent : IStandardNotif ier 

//VBIncludes; "myclass . hpp" __MYCLASS_HPP_ 

//VBPartDataFile: myclass.vbb 

//VBConstructor: myclass__add_0 ( } 

/ /VBComposerlnf o : nonvisual 

//VBEvent: ready, "ready", readyld 

//VBAttribute: Lpage2_seq, ,l Lpage2_seq" , IVSequence<myclass_add_Lpage2 * > , 
IVSequenre<myclass_add__Lpage2*> Lpage2_seq ( } , myclass_add_0 & setLpage2_seq ( 
IVSequence<r ,i yclass_add_Lpage2*> * aLpage2_) , Lpage2_seqld 

//VBAttribute: Lpage2_, "Lpage2_" , myclass_add_Lpage2 , myclass_add_Lpage2 

Lpage2 (), myclass_add_0 & setLpage2 ( myclass_add_Lpage2 * aLpage2_) , 

Lpage2_Id 

//VBAttribute-. resultl_, "resultl" , unsigned short int, unsigned short int 

resultl ( } , myclass_add_0 & setresultl {unsigned short int aresultl) , setresultlld 

//VBPref erredFeatures : Lpage2_seq, Lpage2_, resultl^, this 

//VBEndPartlnf o : myclass_add_0 

//VBBeginPartlnf o : myclass_add_Lpage2 

//VBParent: IStandardNotif ier 

//VBIncludes: "myclass . hpp" _MYCLASS_HPP_ 

//VBPartDataFile: myclass.vbb 

//VBConstructor: myclass_add_Lpage2 0 

//VBComposerlnf o : nonvisual 

//VBEvent. ready , " ready " , readyld 
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//VBAction : operator^, "Assigns 

myclass_add_Lpage2" , myclass_add_Lpage2&, operator= (const myclass_add_Lpage2&: 
aLpage2__) 

//VB At tribute : resultl_, "resultl" , unsigned short int, unsigned short int 
resultld, myclass_add__Lpage2 & setresultl (unsigned short int 
aresultl) , setresultlld 

//VBPref erredFeatures : opeiator=, resultl_, this 
//VBEndPartlnf o : myclass_add_Lpage2 

Mi' CLASP . CPP 

// 

// FILE NAME: myclass.cpp 

// 

#include "myclass . imd" 

INotif icationld myclass_add_I : :Lpagel_seqId = "Lpagel^seqld" ; 
INotif icationld myclass_add_I : : Lpagel__Id - "Lpagel_Id"; 
INotif icationld myclass_add_I ;: setoplld = "setoplld"; 
INotif icationld myclass_add_Lpagel :: setoplld = "setoplld"; 
INotif icationld myclass_add_I ; ; setop2Id = ,f setop2Id"; 
INotif icationld myclass_add_Lpagel : : setop2 Id = "setop2Id"; 
INotif icationld myclass_add_0: :Lpage2_seqId = "Lpage2_seqld" ; 
INotif icationld myclass_add_0 ; :Lpage2_Id = ,, Lpage2_Id" ; 
INoti f icationld myclass_add_0 :: setresultlld = "setresultlld"; 
INot.i f icationld myclass_add_Lpage2 setresultlld = " setresultlld" ; 
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DECLARATION AND POWER OF ATTORNEY FOR PATENT APPLICATION 

As a below named inventor, I hereby declare that: 

My residence, post office address and citizenship are as stated below next to my name; 

I believe I am the original, first and sole inventor (if only one name is listed below) or an original, first 
and joint inventor (if plural names are listed below) of the subject matter which is claimed and for which a 
patent is sought on the invention entitled: AUTOMATED INTERFACE GENERATION FOR COMPUTER PROGRAMS IN DIFFERENT 
ENVIRONMENTS 



the specification of which (check one) 
x is attached hereto. 

was filed on as United States Application Number 

or PCT International Application Number 

and was amended on (if applicable) 

I hereby state that I have reviewed and understand the contents of the above identified specification, including 
the claims, as amended by any amendment referred to above. 

I acknowledge the duty to disclose information which is material to the patentability of this application in 
accordance with Title 37, Code of Federal Regulations, Section 1.56. 

I hereby claim foreign priority benefits under Title 35, United States Code, §119 (a) - (d) or §365 (b) of any 
fpieign application (s) for patent or inventor's certificate, or §365 (a) of any PCT International application 
which designated at least one country other than the United States, listed below and have also identified below, 
byJchecking the box, any foreign application for patent or inventor's certificate, or PCT International 
application, having a filing date before that of the application on which priority is claimed: 

Prior Foreign Application (s) Priority Claimed 

2759 0,167 Canada 2 2 /November/ 9 9 _X_ Y ^s No 

= 1" (Number) (Country) (Day/Month/ Year Filed) 

Yes No 

(Country) (Day/Month/ Year Filed) 

Yes No 

(Number) (Country) (Day /Month/ Year Filed) 

^hereby claim the benefit under 35 U.S.C. §119 (e) of any United States provisional application (s) listed below. 
^(Application Number) (Filing Date) 

.supplication Number) (Filing Date) 

rB hereby claim the benefit under 35 U.S.C. §120 of any United States Application (s) , or §365 (c) of any PCT 
''international application designating the United States, listed below and, insofar as the subject matter of each 
of the claims of this application is not disclosed in the prior United States, or PCT International application 
in the manner provided by the first paragraph of 35 U.S.C. §112, I acknowledge the duty to disclose information 
material to the patentability of this application as defined in 37 CFR §1.56 which occurred between the filing 
date of the prior application and the national or PCT international filing date of this application: 



(Application Serial No.) (Filing Date) (Status) (patented, pending, abandoned) 

(Application Serial No.) (Filing Date) (Status) (patented, pending, abandoned) 

I hereby declare that all statements made herein of my own knowledge are true and that all statements made on 
information and belief are believed to be true; and further that these statements were made with the knowledge 
that willful false statements and the like so made are punishable by fine or imprisonment, or both, under 
Section 1001 of Title 18 of the United States Code and that willful false statements may jeopardize the validity 
of the application or any patent issued thereon. 

POWER OF ATTORNEY : As a named inventor I hereby appoint the following attorney (s) and/or agent (s) to prosecute 
this application and transact all business in the Patent and Trademark Office connected therewith (list name and 
registration number) . 

Manny W. Schecter (Reg. 31,722), Terry J. Ilardi (Reg. 29,936), Christopher A. Hughes 
(Reg. 26,914), Edward A. Pennington (Reg. 32,588), John E. Hoel (Reg. 26,279), Joseph C. 
Redmond, Jr. (Reg. 18,753), Douglas W. Cameron (Reg. No. 31,596), Wayne L . Ellenbogen 
(Reg. No. 43,602), Stephen C. Kaufman (Reg. No. 29,551), Daniel P. Morris (Reg. No. 
32,053), Louis J. Percello {Reg. No. 33,206), Jay P. Sbrollini (Reg. No. 36,266), David M. 
Shofi (Reg. No. 39,835), Robert M. Trepp (Reg. No. 25,933) and Louis P. Herzberg (Reg. No. 
41,500) , 



(Number) 
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DECLARATION AND POWER OF ATTORNEY FOR PATENT APPLICATION 

Send Correspondence to: Richard L. Catania, Scully, Scott, Murphy & Presser ; 

400 Garden City Plaza, Garden City, Mew York 11530 

Direct Telephone Calls to: {name and telephone number} Richard L. Catania, (516) 742-4343 

John H. Green _ 

Full name of sole or first inventor 

LL^ 14. JW^- ^ April text 

Inve^Cbr's Signature — — Date 

57 Glenburn Avenue, Toronto, Ontario M4B 2X5, Canada 

Residence 

Canadian 

Citizenship 

Same as residence 

Post Office Address 

^'ajideep K. Majrocha ^ 

pill name bf/ &&cd&&. \joint inventor, if any 

Inventor ' s Signature s j \ Date/ 

1332 Heritage Way, Oakville, Ontario L6M 3C9, Canada ; 

sidence 

'Canadian 

'Citizenship 

i ^ame as residence 

iYost Office Address 

'; j?iotr Przybylski _ 

Eiull name of third joint inventor, if any 

Inventor ' s Signature f Date 



85 Thorncliffe Park Drive, Apt. 704, Toronto, Ontario M4H 1L6, Canada 

Residence 

Canadian - 

Citizenship 

Same as residence 

Post Office Address 

John W. Stephenson : 

Full n#me of fourth joint jlnventor, if any 



Investor's signature 
B3w Castlecrrove Avenue, Oshawa, Ontario L1J 7X7, Canada 



Residence 
Canadian 



Citizenship 

Same as residence 



Post Office Address 



PATENTS 

IN THE UNITED STATES PATENT AND TRADEMARK OFFICE 



Applicant (s) : John Green, et al. Dated: April 17, 2000 

Serial No.: unassigned Docket: 13498 (CA919980001US1) 

Filed: herewith 

For: AUTOMATED INTERFACE GENERATION FOR COMPUTER PROGRAMS IN 
DIFFERENT ENVIRONMENTS Dated: April 17, 2000 

Assistant Commissioner for Patents 
Washington, DC 20231 

ASSOCIATE POWER OF ATTORNEY AND 
REQUEST FOR CHANGE OF MAILING ADDRESS 

Sir: 

Applicant (s) , by (his/her/ their) attorneys of record, 
hereby grant (s) an Associate Power of Attorney to: 

RICHARD L. CATANIA, Reg. No. 32,608; FRANK S. DIGIGLIO, Reg. 
31,346; KENNETH L. KING, Reg. No. 24,223; STEPHEN D. MURPHY, Reg. 
No. 22,002; LEOPOLD PRESSER, Reg. No. 19,827; and JOHN S. SENSNY, 
Reg. No. 28,757 

with full power of substitution to prosecute this application and 
transact all business in the United States Patent and Trademark 
Office in connection therewith. 

Applicant (s) further request (s) that all future 
correspondence in connection with this application be directed 
and addressed to: 



RICHARD L. CATANIA, ESQ. 
SCULLY, SCOTT, MURPHY AND PRESSER 
400 Garden City Plaza 
Garden City, New York 11530 

Direct all telephone calls to: (516) 742-4343. 



Respectfully submitte 





Jaw P. Sbrollini, Esq. 
Registration No. 36,266 



IBM Corporation 

T.J. Watson Research Center 

PO Box 218 

Yorktown Heights, NY 1059 8 
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